1 SYS49152
10 FORA=0TO120:POKE49664+A,A:NEXT
20 FORA=0TO120:POKE49664+256*1+A,A/2:NEXT
30 FORA=0TO120:POKE49664+256*2+A,2:NEXT
40 FORA=120TO0 STEP-1:POKE49664+256*3+A,3:NEXT
50 FORA=0TO120:POKE49664+256*4+A,RND(1)*17+1:NEXT
60 FORA=0TO120:POKE49664+256*5+A,RND(1)*3+1:NEXT